li <- list(Name = c("Hansen","Knudsen","Paulsen","Maier","Kaiser"), Vorname = c("Peter","Maike","Norbert","Lisa","Franz"),
           Gre = c(185,170,178,155,196),Gewicht = c(82,60,92,51,109) )

m <- matrix(c(li$Gre,li$Gewicht),5,2, dimnames = list(c(1:5), c("Groesse","Gewicht")))

print(li)
print(m)
